約 2,105,468 件
https://w.atwiki.jp/animetal_motoneta/pages/13.html
Animetal Marathon No. トラック名 原曲名 アーティスト名 備考 1 アニメタルのテーマ 2 ガッチャマンの歌 3 海のトリトン 4 テッカマンの歌 5 たたかえ! キャシャーン 6 戦え! ポリマー 7 行くぞ! ゴーダム 8 バビル2世 9 コン・バトラーVのテーマ 10 ボルテスVの歌 11 立て! 闘将ダイモス 12 勇者ライディーン 13 大空魔竜ガイキング Crazy Train Ozzy Osbourne アウトロ 14 すきだッ ダンガードA Communication Breakdown Led Zeppelin イントロ 15 ダッシュ! マシンハヤブサ 16 グランプリの鷹 17 タイガーマスク 18 氷河戦士ガイスラッガー Kill The King Rainbow イントロ 19 誰がために 20 銀河鉄道999 21 キャプテンハーロック 22 宇宙戦艦ヤマト 23 翔べ! ガンダム 24 復活のイデオン 25 マクロス 26 行け! ザンボット3 27 カムヒア! ダイターン3 28 疾風ザブングル 29 ダンバインとぶ 30 さらばやさしき日々よ Cry In The Rain White Snake アウトロ 31 炎のさだめ Since You Been Gone Rainbow イントロ Crazy Night Loudness アウトロ 32 マジンガーZ 33 おれはグレートマジンガー 34 とべ! グレンダイザー 35 ゲッターロボ! 36 鋼鉄ジーグのうた Burn Deep Purple イントロ/アウトロ 37 デビルマンのうた 38 アニメタルのテーマ(Reprise)
https://w.atwiki.jp/ce00582/pages/1451.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnewt(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/男子脱退率.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a2 Loop Close #3 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next mnewt(byear) = z1 Next Open "c /kirakira/gdata/男子通算新規裁定者1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, mnewt(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1499.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /nagoya/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /nagoya/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /nagoya/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /nagoya/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next mnew(byear) = z1 Next Open "c /nagoya/gdata/男子新規裁定者1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1443.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim fnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next fnew(byear) = z1 Next Open "c /kirakira/gdata/女子新規裁定者1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1594.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim fnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /eli/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + car * (mis(byear, 64, car) + mos(byear, 64, car)) Next fnew(byear) = z2 / z1 Next Open "c /eli/gdata/女子通算平均加入年数1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1907.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /dig/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /dig/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next z1 = 0 z2 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) z2 = z2 + car * (mis(byear, 64, car) + mos(byear, 64, car)) Next mnew(byear) = z2 / z1 Next Open "c /dig/gdata/男子通算平均加入年数1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/metatoron/pages/13.html
metalgearsolid ・THEME OF SOLID SNAKE 戦後体制で起きたスネークイーター作戦を始めあらゆる戦いに乗り出して来た歴史。 恐るべき子供計画・メタルギア・ゲノム兵士・サイファービックボスのクローン。 長年の戦いを終えるたびにメタルギアは進化してきた。 ソリットスネークは世界平和を果たす為にテロリストの粛正とメタルギアを破壊してきた。 メタルギアの破壊には限界がありソリットスネークはメタルギアの進化を止める事ができなかった。 ソリットスネークの戦いは未来の希望を照らす為の通過点に過ぎない。
https://w.atwiki.jp/ce00582/pages/197.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 64) As Single Dim f2by(1900 To 2100, 15 To 64) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim avgftime(1900 To 2100) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(2000 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /stream/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /stream/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /stream/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /stream/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next z2 = 0 For car = 25 To 49 z2 = z2 + car * mis(byear, 64, car) + car * mos(byear, 64, car) Next avgftime(byear) = z2 / z1 Debug.Print byear, avgftime(byear) Next Open "c /stream/gdata/女子平均加入年数1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgftime(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1466.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim avgtftime(1900 To 2100) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(2000 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /kirakira/gdata/変形生命表.txt " For Input As #1 Do Until EOF(1) Input #1, a1, a2, a3, a4 byear = a1 age = a2 mdeby(byear, age) = a3 fdeby(byear, age) = a4 Loop Close #1 Open "c /kirakira/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /kirakira/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3 age = a1 theta(age) = a3 Loop Close #3 Open "c /kirakira/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1985 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - mdeby(byear, age) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next z2 = 0 For car = 1 To 24 z2 = z2 + car * mis(byear, 64, car) + car * mos(byear, 64, car) Next avgtftime(byear) = z2 / z1 Debug.Print byear, avgtftime(byear) Next Open "c /kirakira/gdata/女子通算平均加入年数1.txt " For Output As #4 For byear = 1985 To 2100 Write #4, byear, avgtftime(byear) Next Close #4 End Sub
https://w.atwiki.jp/historiacoelestis/pages/14.html
アンドロメダ座 アンドロメダ座 Bayer(1603)星図 Flamsteed(1725)星表 Bevis(c.1750)星表 BSC5(1991)星表 Tirion(1992)星図 Sinnott(2006)星図 備考 α Andδ Peg 21α And α And α And α And α And Pt 1 Peg β And 43β And β And β And β And β And Pt 12 And γ And 57γ And γ And γ1 And γ And γ And Pt 15 And γ2 And δ And 31δ And δ And δ And δ And δ And Pt 1 And ε And 30ε And ε And ε And ε And ε And Pt 3 And ζ And 34ζ And ζ And ζ And ζ And ζ And Pt 10 And η And 38η And η And η And η And η And Pt 11 And θ And 24θ And θ And θ And θ And θ And Pt 5 And ι And 17ι And ι And ι And ι And ι And Pt 7 And κ And 19κ And κ And κ And κ And κ And Pt 8 And λ And 16λ And λ And λ And λ And λ And Pt 9 And μ And 37μ And μ And μ And μ And μ And Pt 13 And ν And 35ν And ν And ν And ν And ν And Pt 14 And ξ And 46 And ξ And ξ And ξ And ξ And Pt21 And ο And ο And11 Lac 11 Lac 11 Lac Ty 21 And b And ο And ο And ο And Pt 23 And 1ο And π And 29π And π And π And π And π And Pt 2 And ρ And 27ρ And ρ And ρ And ρ And rho And; Pt 6 And σ And 25σ And σ And σ And σ And σ And Pt 4 And τ And 53τ And τ And τ And τ And τ And Pt 19 And υ And 40H.And 50 υ And a And υ And υ And υ And Pt 17 And φ And 42φ And φ And φ And φ And φ And Pt 20 And χ And 52λ And χ And χ And χ And χ And Pt 22 And ψ And 20ψ And ψ And ψ And ψ And ψ And ω And 48 And ω And ω And ω And ω And A And 49ξ And A And A And A And 49 And Pt 17 And b And 60b And b And A And b And 60 And 3H.Per c And 62c And c And A And c And 62 And 5H.Per 31n And M31 M31 M31 σ Psc 40 And69σ1 Psc σ Psc σ Psc σ Psc 41d And 41 And 41 And 41 And υ Per 51 And υ Per 51 And 51 And Pt 18 And φ Per 54 And φ Per φ Per φ Per φ Per Pt 16 And42H.And 56 And 56 And 3H.Tri 58 And 58 And 58 And 5H.Tri 15 Lac 15 Lac 15 Lac 1H.And g Per 529 43H.And By Bd h m d m s ° ′ ″HIP 1800.0 J2000.0 D 29 23 43 355 43 57 35 51 10 117762 23h42m52.4s 355 43 06 (+51′ 0.85m) +35ﾟ50 56 23h52m56.22s +36ﾟ57 15.3 (+14″) d 37 23 50 357 29 25 32 37 29 118281 23h49m18.5s 352 15 37. +32ﾟ37 04 23h59m29.29s +33ﾟ43 26.0 7 C 40 23 52 357 53 55 41 15 40 137 23h51m31.4s +41ﾟ15 21 00h01m43.85s +42ﾟ22 01.7 E 50 23 58 359 36 40 35 31 36 699 23h58m23.7s +35ﾟ31 20 00h08m40.94s +36ﾟ37 37.6 B 52 0 0 0 0 9 44 58 34 841 23h59m57.1s +44ﾟ57 41 00h10m19.24s +46ﾟ04 20.2 G 56 0 13 3 22 54 43 9 24 1905 00h13m28.6s +43ﾟ09 28 00h24m05.26s +44ﾟ15 53.1 F 98 0 18 4 35 49 35 37 40 2270 00h18m20.8s +35ﾟ47 39 00h28m56.67s +36ﾟ53 58.9 H 126 0 30 7 35 33 38 21 24 3231 00h30m18.3s +38ﾟ21 40 00h41m07.19s +39ﾟ27 31.2 o 129 0 32 7 56 44 39 57 32 M32 00h31m49.2s +39ﾟ46 00 00h42m41.5s +40ﾟ51 47 n 130 0 32 7 56 58 40 11 23 M31 00h31m49.1s +40ﾟ10 13 00h42m42.0s +41ﾟ16 00 K 175 0 58 14 23 40 40 26 30 5298 00h56m29.2s +40ﾟ26 38 01h07m46.76s +41ﾟ30 47.8 5553 00h59m53.8s +40ﾟ09 27 01h11m14.59s +41ﾟ13 17.0 I 184 1 0 15 0 47 36 40 11 5550 00h59m57.9s +36ﾟ39 31 01h11m10.28s +37ﾟ43 26.8 L 185 1 1 15 16 42 44 16 39 5650 01h01m02.0s +44ﾟ16 22 01h12m34.08s +45ﾟ20 15.1 M 207 1 15 18 40 3 42 25 10 6711 01h14m36.4s +42ﾟ25 06 01h26m18.69s +43ﾟ27 27.9 N 234 1 36 23 54 45 45 13 53 8370 01h35m34.9s +45ﾟ13 50 01h47m48.01s +46ﾟ13 47.1 F 243 1 44 26 5 34 36 15 57 9021 01h44m19.5s +36ﾟ16 00 01h56m09.36s +37ﾟ15 06.6 O 245 1 46 26 23 50 46 7 0 9163 01h45m31.5s +46ﾟ06 56 01h57m59.24s +47ﾟ05 43.8 P 270 2 12 33 6 21 49 22 14 11313 02h12m21.7s +49ﾟ22 06 02h25m37.42s +50ﾟ16 43.1